home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / MPW 411 / UserStartup•Help < prev   
Text File  |  1990-06-14  |  4KB  |  128 lines
  1. #                                                            3/20/90
  2. #      411 - UserStartup•Help Script - MPW 3.2
  3. #
  4. #    Copyright 1989,1990, Apple Computer, Inc.
  5. #    All Rights Reserved.
  6. #
  7.  
  8. #
  9. #        To automatically mount your 411 file server when MPW launches...
  10. #
  11. #     Set the "Help_Server" variable to the "zone:server:volume" where your "411"
  12. #    help folder resides.  Requires the MPW 3.2 Choose command.
  13. #
  14.     
  15.     Set Help_Server     ""  # "Development Tools:Okefenokee:The Star:"
  16.     Set Guest           0    # set to 1 # if you want to log on as guest, else set to 0.
  17.     
  18.     IF "{Help_Server}" != ""
  19.         if not "`Exists "{Help_Server}"`"
  20.             IF {Guest}
  21.                 Choose "{Help_Server}"  -guest
  22.             Else
  23.                 Choose "{Help_Server}"  -u "{User}" -askpw
  24.             End
  25.         End
  26.     End
  27.  
  28. #    Set type of header - default is abreviated header
  29.  
  30.     Set headerStyle    -h2    # Set headerStyle -h # Expanded header -lists all files searched
  31.     
  32. #    Specify the help directory
  33.     
  34.     Set HelpDirectory "{ShellDirectory}Help Folder:"
  35.         
  36. #    Get the location of:
  37. #    ... the 411 directory, 
  38. #    ... the current 411 template and 
  39.  
  40.     if not "`Exists "{HelpDirectory}"`"
  41.         NewFolder "{HelpDirectory}"
  42.     End
  43.     if  "`Exists "{HelpDirectory}"Help_Folder`" 
  44.         Set Help_Folder     "`Catenate "{HelpDirectory}"Help_Folder`"
  45.     End
  46.     
  47.     if not "`Exists "{HelpDirectory}"Help_Folder`" || not "`Exists "{Help_Folder}"`"
  48.         Set exit 0; Set temp "{Boot}"; Loop; ∂
  49.         Set temp "`(GetFileName "{temp}" -q -d -m "Where is your ∂"411∂" folder?")≥dev:null`"; ∂
  50.         if "{temp}"!=""; Echo -n "{temp}" > "{HelpDirectory}"Help_Folder; ∂
  51.         Set Help_Folder "{temp}"; Else; set exit 1; exit; End; ∂
  52.         (set x "`Files "{temp}"≈Help`") ≥dev:null; ∂
  53.         if  "{x}"==""; Alert 411 - The ∂"{temp}∂" folder does not contain Help files.; else; break; end; End; ∂
  54.         set exit 1 ; ∂
  55.     End
  56.  
  57.     if not "`Exists "{HelpDirectory}"Help_Files`"
  58.         Set exit 0;Files "{Help_Folder}"≈Help -q > "{HelpDirectory}"Help_Files;set exit 1
  59.     End
  60.     
  61.     Set Help_Folder     "`Catenate "{HelpDirectory}"Help_Folder`"
  62.  
  63.     Export HelpDirectory
  64.     
  65. #     Aliases for the "Get" tool
  66.     
  67.     Alias Man Get -d Help -width 60 ∂"∂{Help_Folder∂}∂"MPWHelp -k
  68.  
  69. #      Help Menu definitions.
  70.     
  71.     DeleteMenu 411 ≥dev:null || ;
  72.  
  73.     AddMenu 411 "Contents" ∂
  74.         '(Get {headerStyle} -m -d Help -width 60 -dfl "{HelpDirectory}"Help_Files -k "Help" || (beep;)) ∑∑ "{HelpDirectory}"Help; ∂
  75.         Open "{HelpDirectory}"Help'
  76.                 
  77.     AddMenu 411 "Look up/E" ∂
  78.         '(Get {headerStyle} -m -d Help -s -width 60 -dfl "{HelpDirectory}"Help_Files || (beep ;)) ∑∑ "{HelpDirectory}"Help; ∂
  79.         Open "{HelpDirectory}"Help'
  80.  
  81.     AddMenu 411 "Template/1" ∂
  82.         'get -q -s -t -dfl "{HelpDirectory}"Help_Files >"{HelpDirectory}"Help_Temp; ∂
  83.         set x "`Catenate "{HelpDirectory}"Help_Temp`"; ∂
  84.         if "{x}"=="";beep;exit 0;end; Echo -n "{x}" >"{Active}".§'
  85.         
  86.     AddMenu 411 "Show Keys" ∂
  87.         '(Get {headerStyle} -m -s -l -width 60 -dfl "{HelpDirectory}"Help_Files || (beep;)) ∑∑ "{HelpDirectory}"Help; ∂
  88.         Open "{HelpDirectory}"Help'
  89.  
  90.     AddMenu 411 "Search" ∂
  91.         '(Get {headerStyle} -m -s -search -width 60 -dfl "{HelpDirectory}"Help_Files || (beep;)) ∑∑ "{HelpDirectory}"Help; ∂
  92.         Open "{HelpDirectory}"Help'
  93.  
  94.      AddMenu 411 "(-" ""
  95.     
  96.     AddMenu 411 "Set First File…" ∂
  97.         'set exit 0;get -sfl -dfl "{HelpDirectory}"Help_Files >"{HelpDirectory}"Help_Temp; ∂
  98.         set x "`Catenate "{HelpDirectory}"Help_Temp`"; ∂
  99.         Set temp "`(GetListItem -q -m "Set First Help File to:" -d {x})≥dev:null`";∂
  100.         if "{temp}"!=""; ∂
  101.         (Get {headerStyle} -m -d Help -k "{temp}" -width 60 -dfl "{HelpDirectory}"Help_Files || (beep ;)) ∑∑ "{HelpDirectory}"Help; ∂
  102.         Open "{HelpDirectory}"Help; End;set exit 1'        
  103.  
  104.     AddMenu 411 "Set 411 Files…" ∂
  105.         'Set exit 0; Set temp "{Boot}"; Loop; ∂
  106.         Set temp "`(GetFileName "{temp}" -q -d -m "Where is your ∂"411∂" folder?")≥dev:null`"; ∂
  107.         if "{temp}"==""; break; End; ∂
  108.         (set x "`Files "{temp}"≈Help`") ≥dev:null; ∂
  109.         if  "{x}"==""; Alert 411 - The ∂"{temp}∂" folder does not contain Help files.; ∂
  110.         else; Files -q "{temp}"≈Help > "{HelpDirectory}"Help_Files;break; end; End; ∂
  111.         set exit 1 '
  112.     
  113.     AddMenu 411 "Edit 411 Files…" ∂
  114.         'Open "{HelpDirectory}"Help_Files;'
  115.  
  116.      AddMenu 411 "(-" ""
  117.  
  118.      AddMenu 411 'About 411…' ∂
  119.         'Alert -s "∂"411∂" was brought to you by:  ∂n∂n        Bob, Bill, Rudi, Ron, ∂n∂n       …and their friends."; ∂
  120.         (Get -m -k "About411" -dfl "{HelpDirectory}"Help_Files || (beep ;)) ∑∑ "{HelpDirectory}"Help; ∂
  121.         Open "{HelpDirectory}"Help'
  122.     
  123.     if not "`Exists "{HelpDirectory}"Help`"
  124.         Echo  > "{HelpDirectory}"Help
  125.     End
  126.  
  127.  
  128.